home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc v 87.d64 / diskterm 1650.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  291 lines
  1. 1 IFPEEK(22784)<>76THENLOAD"TERM2",8,1
  2. 10 IFPEEK(49152)<>169THENLOAD"TERM1",8,1
  3. 15 POKE650,128
  4. 20 POKE646,0:POKE251,0:POKE252,99
  5. 30 N%=0:NX%=12
  6. 40 POKE51224,255
  7. 50 POKE24816,6:POKE24817,0
  8. 60 POKE53280,11:POKE646,14:POKE53281,0
  9. 70 REM
  10. 80 N%=N%+1
  11. 100 R%=5:MO%=6:SE$="":ML=22784
  12. 110 POKE56,86:POKE644,86:CLR:OPEN5,2,0,CHR$(PEEK(24816))+CHR$(PEEK(24817))
  13. 120 RE$=" ":SE$=" ":MO%=134:R%=0:C$="0123456789ABCDEF"
  14. 130 RP=2:RS=0:WP=RP:WS=RS
  15. 140 POKE24575,RP:POKE24574,RS+96:POKE24573,WP:POKE24572,WS+96
  16. 150 PA(0)=10:PA(1)=6:PA(2)=2
  17. 160 ML=22784:BR=300:PRINTCHR$(14):POKE24569,0
  18. 170 OPEN1,8,15:POKE556,0:POKE552,0:POKE553,1
  19. 180 DN$="":GOTO200
  20. 190 PRINT"[147][212]ERMINAL [205]ODE":SYSML:CLOSE11:TM=0
  21. 200 BS=PEEK(51224)
  22. 201 PRINT"[147]    [154]   [194]AUD =[151]";BR;"      [154][194]LOCK [211]IZE =[151]"BS
  23. 210 PRINT"1 - [212]ERMINAL [205]ODE":PRINT"[154]2 - [207][204][196] [208]ROTOCOL/[211][197][206][196] [208][210][199]"
  24. 220 PRINT"3 - [207][204][196] [208]ROTOCOL/[210][197][195][197][201][214][197] [208][210][199]"
  25. 230 PRINT"[151]4 - [196]ISK [195]OMMANDS":PRINT"5 - [195]HANGE [194]AUD"
  26. 240 TY$="PSP"
  27. 250 PRINT"6 - [193]UTODIAL/[193]UTOANSWER"
  28. 260 PRINT"[154]7 - [206][197][215] [208]ROTOCOL/[211][197][206][196] [208][210][199]":PRINT"8 - [206][197][215] [208]ROTOCOL/[210][197][195][197][201][214][197] [208][210][199]"
  29. 270 PRINT"[151]0 - [195]HANGE [194]LOCK [211]IZE"
  30. 280 PRINT"[151][209] - [209]UIT"
  31. 290 PRINT"[210]EVISED BY: [203]EN [211]PENCE"
  32. 308 GETA$:IFA$=""THEN308
  33. 309 IFA$="Q"ORA$="[209]"THEN880
  34. 310 ONVAL(A$)GOTO190,670,330,2340,3400,1160,3160,3200:IFA$="0"THEN3250
  35. 320 GOTO308
  36. 330 PRINT""
  37. 340 PRINT"[206]AME OF [198]ILE?"
  38. 350 PRINT"[196]EFAULT DRIVE IS #0":PRINT">";:GOSUB920:S$=B$
  39. 360 IFS$=""THENPRINT#5,"A";:GOTO190
  40. 370 IFMID$(S$,2,1)<>":"THENS$="0:"+S$
  41. 380 GOSUB580:S$="@"+S$+T$+",W"
  42. 390 CLOSE2:OPEN2,8,2,S$:GOSUB990:IFESTHENPRINTES$:CLOSE2:GOTO340
  43. 400 PRINT#5,"TTTTTTTTTT";
  44. 410 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN410
  45. 420 SYSML+18:IFSTTHEN470
  46. 430 FORX=0TO10:NEXT:GET#5,A$:IFST=0THEN430
  47. 440 S1=PEEK(ML-2):S2=PEEK(ML-1):SYSML+12
  48. 450 IFS1<>PEEK(ML-2)ORS2<>PEEK(ML-1)THEN480
  49. 460 SYSML+15:PRINT#5,"";:PRINT"-";:GOTO410
  50. 470 CLOSE2:PRINT#5,"SSSSSSSSSS";:PRINT:GOTO190
  51. 480 PRINT#5,"";:PRINT":";:GOTO410
  52. 490 PRINT"[212]YPE OF [198]ILE:"
  53. 500 PRINT"([208])ROGRAM, ([215])ORD[208]RO, OR ([211])EQ?":PRINT">";
  54. 510 GETB$:IFB$=""THEN510
  55. 520 TY$=B$:FL=0
  56. 530 IFB$="P"THENT$=",P":POKE557,0:PRINT"[208]ROGRAM":RETURN
  57. 540 IFB$="S"THENT$=",S":POKE557,0:PRINT"[211][197][209]":RETURN
  58. 550 IFB$="W"THENT$=",P":POKE557,1:PRINT"[215]ORD[208]RO":RETURN
  59. 560 IFB$=CHR$(13)THENFL=1:RETURN
  60. 570 GOTO510
  61. 580 PRINT#5,"UUUUUUUUUU";
  62. 590 GET#5,A$:IFST<>0THEN590
  63. 600 IFA$="P"THENT$=",P":POKE557,0:A$="[208]ROGRAM":GOTO640
  64. 610 IFA$="S"THENT$=",S":POKE557,0:A$="[211][197][209]":GOTO640
  65. 620 IFA$="W"THENT$=",P":POKE557,1:A$="[215]ORD[208]RO":GOTO640
  66. 630 GOTO590
  67. 640 PRINT"[198]ILE [212]YPE: "A$""
  68. 650 GET#5,A$:IFST=0THEN650
  69. 660 RETURN
  70. 670 PRINT""
  71. 680 PRINT"[206]AME OF [198]ILE TO [211]END?":PRINT">";:GOSUB920:S$=B$
  72. 690 IFS$=""THENPRINT#5,"A";:GOTO190
  73. 700 GOSUB490:IFFLTHENS$="":GOTO690
  74. 710 CLOSE2:OPEN2,8,2,S$+T$:GOSUB990:IFESTHENPRINTES$:CLOSE2:GOTO680
  75. 720 FORX=1TO10:PRINT#5,TY$;:NEXTX:PRINT
  76. 730 GET#5,A$:IFST<>0ORA$<>"U"THEN730
  77. 740 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN740
  78. 750 SYSML+9:CK=ST
  79. 760 FORX=1TO400:NEXT
  80. 770 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN770
  81. 780 FORT=0TO255:PRINT#5,CHR$(PEEK(ML-256+T));:NEXTT
  82. 790 PRINT#5,"ZZZZZZZZZZZZZZZ";
  83. 800 IFPEEK(669)<>PEEK(670)THEN800
  84. 810 GET#5,A$:IFST<>0THEN810
  85. 820 IFA$=""THENPRINT":";:GOTO760
  86. 830 IFA$<>""THEN810
  87. 840 IFCK=0THENPRINT"-";:GOTO740
  88. 850 GET#5,A$:IFPEEK(667)<>PEEK(668)THEN850
  89. 860 CLOSE2:GOTO190
  90. 870 SYSML+21:A$=CHR$(PEEK(634)):RETURN
  91. 880 REM QUIT TERMINAL
  92. 890 CLOSE5:CLOSE1:CLOSE2:CLOSE11
  93. 900 PRINTCHR$(9)
  94. 910 END
  95. 920 PRINT" [146][157]";:B$=""
  96. 930 GETA$:IFA$=""THEN930
  97. 940 IFA$=CHR$(20)THEN970
  98. 950 IFA$=CHR$(13)THENPRINT" ":RETURN
  99. 960 B$=B$+A$:PRINT" [157]"A$" [146][157]";:GOTO930
  100. 970 IFLEN(B$)=0THEN930
  101. 980 B$=LEFT$(B$,LEN(B$)-1):PRINTA$;:GOTO930
  102. 990 REM
  103. 1000 INPUT#1,E1$,E2$,E3$,E4$
  104. 1010 ES$=E1$+","+E2$+","+E3$+","+E4$
  105. 1020 ES=VAL(E1$):RETURN
  106. 1030 POKE22784,0:RUN
  107. 1160 B1=56577:B2=56579
  108. 1170 PRINT"[147][193]UTODIAL [211]ECTION ":POKE2023,0
  109. 1180 PRINT"[211]ELECT ONE:
  110. 1190 [153]"[ATN]NSWER AN RIGHT$NCOMING LENALL"
  111. 1200 [153]"[STR$]IAL OUT"
  112. 1205 [153]"(null)RESS ATNNOTHER (null)EY TO ATNBORT"
  113. 1210 [161]A$:[139]A$[178]""[137]1210
  114. 1220 [139]A$[178]"A"[167]1250
  115. 1230 [139]A$[178]"D"[167]1310
  116. 1240 [137]70
  117. 1250 [151]B2,32:[151]B1,0
  118. 1260 [153]"LOAD(null)AITING FOR A (null)ING..."
  119. 1270 X[178][194](B1):X[178]X[175]8:[161]A$:[139]A$[178]""[167][151]B1,32:[137]200
  120. 1280 [139]X[178]0[167][151]B1,32:[153]"(null)ING STR$ETECTED":[137]2290
  121. 1290 [137]1270
  122. 1300 [128]
  123. 1310 [151]B2,32:[151]B1,0
  124. 1320 [153]"LOADPEEKULLETIN PEEKOARDS ATNVAILABLEWAIT":[141]1640:[141]1790:[137]1360
  125. 1340 [153]"ONVALNTER (null)UMBER TO STR$IAL  CMDCMD";:[133]D$
  126. 1350 [142]
  127. 1360 [151]B1,32:T[178]100
  128. 1370 T[178]T[171]1:[139]T[179][177]0[137]1370
  129. 1380 D[178][195](D$):[129]X[178]1[164]D:N$[178][202](D$,X,1)
  130. 1390 [153]""N$"WAIT";:N[178][197](N$):[139]N[178]0[167]N[178]10
  131. 1400 [139]N$[179]"0"[176]N$[177]"9"[167][130]X:[137]1420
  132. 1410 [141]1450:[130]X
  133. 1420 NT[178]NT[170]1:[129]XB[178]1[164](40[171]D):[153]" ";:[130]XB
  134. 1430 [153]"STR$IALING VALNDED .... (null)UMBER OF TRIES";NT:[137]1540
  135. 1450 [129]N1[178]1[164]N
  136. 1460 [151]B1,0
  137. 1470 [129]T[178]1[164]14:[130]T
  138. 1480 [151]B1,32
  139. 1490 [129]T[178]1[164]14:[130]T
  140. 1500 [130]N1
  141. 1510 [129]T[178]1[164]65:[130]T
  142. 1520 [142]
  143. 1530 [128]
  144. 1540 CR[178]0:[129]ZZ[178]1700[164]1000[169][171]1:[161]A$:[139]A$[178]" "[167]1610
  145. 1570 [139]A$[178]"^"[137]1310
  146. 1580 [139][194](B1)[178]47[167]CR[178]CR[170]1:[139]CR[177]20[167]2290
  147. 1585 [139][194](B1)[178]46[167]1610
  148. 1590 [139]A$[178][199](19)[137]200
  149. 1600 [130]ZZ
  150. 1610 [151]B1,0:[129]ZZ[178]1[164]2000:[130]
  151. 1620 [153]"ONONON           CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD                 CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDONON"
  152. 1625 [137]1360
  153. 1640 [153]"1. LENAMPUTERS 2.            3.         "
  154. 1650 [153]"4.           5.            6. (null)OONRISE"
  155. 1660 [153]"7. (null)ROBOTICS 8. VALRROR #62  9.         "
  156. 1670 [153]"10. PEEKPEEKPEEKPEEK(null) (null)1 11. PEEKPEEKPEEKPEEK(null) (null)2  12. PEEKPEEKPEEKPEEK(null) (null)1"
  157. 1680 [153]"13. PEEKPEEKPEEKPEEK(null) (null)2 14.           15.       "
  158. 1690 [153]"16.          17.           18.         "
  159. 1700 [153]"19.          20.           21.         "
  160. 1710 [153]"22.          23.           24.         "
  161. 1720 [153]"25.          26.           27.         "
  162. 1730 [153]"28.          29.           30.         "
  163. 1740 [153]"31.          32.           33.         "
  164. 1750 [153]"34.          35.           36.         "
  165. 1760 [153]"37.          38.           39.         "
  166. 1770 [153]"40.          41. (null)ONE OF THE ATNBOVE"
  167. 1780 [142]
  168. 1790 NT[178]0
  169. 1800 [153]"";
  170. 1810 [133]A$:[139][197](A$)[178]0[167]A$[178]"8":[153]"8"
  171. 1820 [145][197](A$)[137]1880,1890,1900,1910,1920,1930,1940,1950,1960,1970,1980,1990,2000
  172. 1825 [145][197](A$)[171]13[137]2010,2020,2030
  173. 1830 A[178][197](A$)[171]16
  174. 1840 [145]A[137]2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150,2160,2170,2180,2190,2200
  175. 1850 A[178][197](A$)[171]33
  176. 1860 [145]A[137]2210,2220,2230,2240,2250,2260,2270,2280
  177. 1870 [139]A[177]8[137]1310
  178. 1880 D$[178]"745-6129":QL$[178]"(null)ASSWORD =       ":[142]:[143] #01
  179. 1890 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #02
  180. 1900 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #03
  181. 1910 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #04
  182. 1920 D$[178]"LEFT$ANG  UP":QL$[178]"(null)ASSWORD =       ":[142]:[143] #05
  183. 1930 D$[178]"469-3305":QL$[178]"(null)ASSWORD =       ":[142]:[143] #06
  184. 1940 D$[178]"622-7198":QL$[178]"(null)ASSWORD =       ":[142]:[143] #07
  185. 1950 D$[178]"621-3858":QL$[178]"(null)ASSWORD =       ":[142]:[143] #08
  186. 1960 D$[178]"LEFT$ANG  UP":QL$[178]"(null)ASSWORD =       ":[142]:[143] #09
  187. 1970 D$[178]"487-5833":QL$[178]"(null)ASSWORD =       ":[142]:[143] #10
  188. 1980 D$[178]"481-8661":QL$[178]"(null)ASSWORD =       ":[142]:[143] #11
  189. 1990 D$[178]"481-9047":QL$[178]"(null)ASSWORD =       ":[142]:[143] #12
  190. 2000 D$[178]"277-9991":QL$[178]"(null)ASSWORD =       ":[142]:[143] #13
  191. 2010 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #14
  192. 2020 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #15
  193. 2030 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #16
  194. 2040 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #17
  195. 2050 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #18
  196. 2060 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #19
  197. 2070 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #20
  198. 2080 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #21
  199. 2090 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #22
  200. 2100 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #23
  201. 2110 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #24
  202. 2120 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #25
  203. 2130 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #26
  204. 2140 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #27
  205. 2150 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #28
  206. 2160 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #29
  207. 2170 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #30
  208. 2180 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #31
  209. 2190 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #32
  210. 2200 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #33
  211. 2210 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #34
  212. 2220 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #35
  213. 2230 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #36
  214. 2240 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #37
  215. 2250 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #38
  216. 2260 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #39
  217. 2270 D$[178]"LEFT$ANG  (null)P":QL$[178]"(null)ASSWORD =       ":[142]:[143] #40
  218. 2280 [137]1340
  219. 2290 S[178]54272:[129]L[178]0[164]24:[151]L[170]S,0:[130]:[151]S[170]1,130:[151]S[170]5,9:[151]S[170]15,30:[151]S[170]24,15
  220. 2300 [151]S[170]4,21:[129]T[178]1[164]20:[130]:[151]S[170]4,255:[129]T[178]1[164]20:[130]
  221. 2310 [151]S[170]24,0:[151]S[170]15,0:[151]S[170]5,0:[151]S[170]1,0:[129]L[178]0[164]24:[151]S[170]L,0:[130]
  222. 2330 [152]5:[151]2023,0:[153]:[153]:[153]QL$:[137]190
  223. 2340 [159]6,8,15:[153]"LOAD":[137]2650
  224. 2560 [143]
  225. 2570 C$[178]"":[153]"> POKECMDWAIT";
  226. 2580 [161]B$:[139]B$[178]""[167]2580
  227. 2590 [139]B$[178][199](13)[167][153]" ":[137]2610
  228. 2595 [139]B$[178][199](20)[175][195](C$)[177]0[167][153]"CMD WAITPOKE CMDCMD";:C$[178][200](C$,[195](C$)[171]1):[137]2580
  229. 2596 [139]B$[178][199](20)[167]2580
  230. 2600 [153]B$;" WAITPOKECMD";:C$[178]C$[170]B$:[137]2580
  231. 2610 [152]6,C$
  232. 2620 [143]
  233. 2630 [132]6,A$,B$,C$,D$:[153]A$" "B$"WAIT "C$" "D$
  234. 2640 [143]
  235. 2650 [153]"STR$-STR$IRECTORY"
  236. 2660 [153]">-STR$ISK LENOMMAND"
  237. 2670 [153]"(null)-(null)UIT"
  238. 2680 [153]"(null)-STR$ISK (null)TATUS"
  239. 2690 [161]A$:[139]A$[178]""[167]2690
  240. 2700 [139]A$[178]"D"[167][153]"STR$IRECTORY, (null)LEFT$RIGHT$ASC(null)=(null)AUSE, (null)(null)CHR$(null)=ATNBORT":[158]52320:[137]2650
  241. 2710 [139]A$[178]"."[176]A$[178]">"[167]2560
  242. 2720 [139]A$[178]"Q"[167][160]6:[160]7:[137]200
  243. 2730 [139]A$[178]"S"[167]2620
  244. 2740 [137]2690
  245. 2750 [143]
  246. 2760 NB[178]NB[171](NB[179]0)[172]65536
  247. 2770 [139]NB[179]61440[167]UE[178]0:[142]
  248. 2780 [139]NB[178]61440[167]UE[178]128:[142]
  249. 2790 [153]"READ ERROR# ";NB[171]61440:[142]
  250. 3160 [153][199](13)"(null)ETURN ATNBORTS...":TY$[178]"PSP":[153]"(null)ROGRAM (null)AME? ";:[141]3290:[139]I$[178]""[167]200
  251. 3161 [153]"[(null)]ROGRAM, [(null)]EQ. OR [(null)]ORDPRO?"
  252. 3162 [161]A$:[139]A$[178]"P"[176]A$[178]"(null)"[167][153]"(null)ROGRAM":SA[178]0:PK[178]1:I$[178]I$[170]",P,R":[137]3166
  253. 3163 [139]A$[178]"W"[176]A$[178]"(null)"[167][153]"(null)ORD(null)RO":SA[178]0:PK[178]3:I$[178]I$[170]",P,R":[137]3166
  254. 3164 [139]A$[178]"S"[176]A$[178]"(null)"[167][153]"(null)EQUENTIAL":SA[178]2:PK[178]2:I$[178]I$[170]",S,R":[137]3166
  255. 3165 [137]3162
  256. 3166 [160]1:[160]2:[159]1,8,15:[159]2,8,SA,I$:[132]1,A,B$,C,D
  257. 3167 [139]A[177]0[167][153]A;""B$"WAIT";C;D:[160]2:[160]1:[139]A[178]64[167]I$[178][200](I$,[195](I$)[171]4):[137]3161
  258. 3168 [139]A[177]0[167]3160
  259. 3180 [158]49173:[151]51227,PK:[158]49164:[139][194](512)[178]1[167][160]2:[160]1:[137]190
  260. 3190 [158]49173:[151]51224,BS:[158]49158:[160]2:[160]1:[137]190
  261. 3200 [153][199](13)"(null)ETURN ATNBORTS...":TY$[178]"PSP":[153]"(null)AVE ATNS? ";:[141]3290:[139]I$[178]""[167]200
  262. 3210 [158]49173:[158]49161:[139][194](512)[178]1[167]190
  263. 3220 T$[178]","[170][202]("PSP",[194](51227),1)[170]",W"
  264. 3221 [139][194](51227)[178]1[167][153]"(null)ECEIVING (null)(null)CHR$ ASCILE":[137]3230
  265. 3222 [139][194](51227)[178]2[167][153]"(null)ECEIVING (null)VAL(null) ASCILE":[137]3230
  266. 3223 [139][194](51227)[178]3[167][153]"(null)ECEIVING (null)(null)(null) ASCILE":[137]3230
  267. 3230 [159]2,8,2,"@0:"[170]I$[170]T$:[129]X[178]1[164]1300:[130]X:[153]:[158]61310
  268. 3240 [158]49173:[158]49155:[160]2:[129]X[178]1[164]1000:[151]668,[194](667):[137]190
  269. 3250 [153][199](13)"(null)ETURN ATNBORTS...":[153]"PEEKLOCK (null)IZE? ";:[141]3290:[139]I$[178]""[167]200
  270. 3260 BS[178][197](I$):[139]BS[179]40[167]BS[178]40
  271. 3270 [139]BS[177]255[167]BS[178]255
  272. 3280 [151]51224,BS:[137]200
  273. 3290 I$[178]""
  274. 3300 [153]" WAITCMD";
  275. 3310 [161]A$:[139]A$[178]""[167]3310
  276. 3320 [139]A$[178][199](13)[167]3390
  277. 3330 [139]A$[178][199](20)[167]3370
  278. 3340 [139][195](A$)[177]20[167]3310
  279. 3350 [139]([198](A$)[175]127)[179]32[167]3310
  280. 3360 [153]A$;:I$[178]I$[170]A$:[137]3300
  281. 3370 [139][195](I$)[178]0[167]3310
  282. 3380 [153]" CMDCMD";:I$[178][200](I$,[195](I$)[171]1):[137]3300
  283. 3390 [153]" ":[142]
  284. 3400 [153]"LOAD";
  285. 3405 [153]"PEEKAUD (null)ATE (300 - 450)?PRINT#";BR;"CMDCMDCMDCMDCMDCMD";:[133]BR
  286. 3410 [153]"POKE";:[139]BR[179]300[176]BR[177]450[167][153]"RIGHT$NVALID PEEKAUD (null)ATE":[137]3405
  287. 3420 V[178]1.02273E6[173]BR
  288. 3440 HI[178][181](V[173]256):LO[178]V[171]HI[172]256
  289. 3450 [151]665,LO:[151]666,HI
  290. 3460 [137]200
  291.